/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / P4UTIL.ZIP / CPYDISK3.PRG

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 10 3c 10 01 00 8f 20 | 43 4f 50 59 20 44 49 53 |..<.... |COPY DIS|
|00000010| 4b 20 46 49 4c 45 53 20 | 2d 2d 20 56 45 52 20 31 |K FILES |-- VER 1|
|00000020| 2e 31 20 20 20 20 20 20 | 20 20 20 20 20 55 50 44 |.1      |     UPD|
|00000030| 41 54 45 44 20 35 2d 31 | 34 2d 37 39 00 60 10 02 |ATED 5-1|4-79.`..|
|00000040| 00 99 22 93 11 11 22 a3 | 31 30 29 22 12 20 43 4f |.."...".|10)". CO|
|00000050| 50 59 20 44 49 53 4b 20 | 46 49 4c 45 53 20 11 22 |PY DISK |FILES ."|
|00000060| 00 83 10 05 00 99 22 49 | 4e 53 45 52 54 20 44 49 |......"I|NSERT DI|
|00000070| 53 4b 45 54 54 45 53 20 | 49 4e 20 44 52 49 56 45 |SKETTES |IN DRIVE|
|00000080| 53 11 22 00 a5 10 0a 00 | 44 4e b2 38 3a 44 4e 24 |S.".....|DN.8:DN$|
|00000090| b2 c9 28 c4 28 44 4e 29 | 2c 31 29 3a 9f 31 35 2c |..(.(DN)|,1):.15,|
|000000a0| 44 4e 2c 31 35 00 ce 10 | 0f 00 85 22 44 45 53 54 |DN,15...|..."DEST|
|000000b0| 49 4e 41 54 49 4f 4e 20 | 44 52 49 56 45 20 4e 55 |INATION |DRIVE NU|
|000000c0| 4d 42 45 52 a0 a0 a0 9d | 9d 9d 22 3b 44 44 00 f2 |MBER....|..";DD..|
|000000d0| 10 10 00 44 44 24 b2 c9 | 28 c4 28 44 44 29 2c 31 |...DD$..|(.(DD),1|
|000000e0| 29 3a 53 44 24 b2 c9 28 | c4 28 31 ab 44 44 29 2c |):SD$..(|.(1.DD),|
|000000f0| 31 29 00 0a 11 12 00 43 | 43 24 b2 22 49 22 aa 53 |1).....C|C$."I".S|
|00000100| 44 24 3a 98 31 35 2c 43 | 43 24 00 48 11 14 00 99 |D$:.15,C|C$.H....|
|00000110| 22 11 44 4f 20 59 4f 55 | 20 57 49 53 48 20 54 4f |".DO YOU| WISH TO|
|00000120| 20 4e 45 57 20 44 52 49 | 56 45 20 22 44 44 24 3b | NEW DRI|VE "DD$;|
|00000130| 3a 85 22 20 20 4e 9d 9d | 9d 22 3b 53 24 3a 8b 53 |:."  N..|.";S$:.S|
|00000140| 24 b2 22 59 22 a7 33 30 | 00 69 11 19 00 8d 39 30 |$."Y".30|.i....90|
|00000150| 30 3a 43 43 24 b2 22 49 | 22 aa 44 44 24 3a 98 31 |0:CC$."I|".DD$:.1|
|00000160| 35 2c 43 43 24 3a 89 34 | 30 00 95 11 1e 00 85 22 |5,CC$:.4|0......"|
|00000170| 44 49 53 4b 20 4e 41 4d | 45 a0 a0 a0 9d 9d 9d 22 |DISK NAM|E......"|
|00000180| 3b 4e 24 3a 8b 4e 24 b2 | 22 a0 22 a7 99 22 91 22 |;N$:.N$.|".".."."|
|00000190| 3b 3a 89 33 30 00 ce 11 | 20 00 85 22 49 44 a0 28 |;:.30...| .."ID.(|
|000001a0| 46 4f 52 20 46 4f 52 4d | 41 54 54 49 4e 47 29 a0 |FOR FORM|ATTING).|
|000001b0| a0 a0 9d 9d 9d 22 3b 49 | 44 24 3a 8b 49 44 24 b2 |.....";I|D$:.ID$.|
|000001c0| 22 a0 22 a7 49 44 24 b2 | 22 22 3a 89 33 36 00 e3 |".".ID$.|"":.36..|
|000001d0| 11 22 00 49 44 24 b2 22 | 2c 22 aa c8 28 49 44 24 |.".ID$."|,"..(ID$|
|000001e0| 2c 32 29 00 0c 12 24 00 | 8d 39 30 30 3a 43 43 24 |,2)...$.|.900:CC$|
|000001f0| b2 22 4e 20 22 aa 44 44 | 24 aa 22 3a 22 aa 4e 24 |."N ".DD|$.":".N$|
|00000200| aa 49 44 24 3a 98 31 35 | 2c 43 43 24 00 47 12 28 |.ID$:.15|,CC$.G.(|
|00000210| 00 99 22 11 41 50 52 4f | 58 49 4d 41 54 45 20 53 |..".APRO|XIMATE S|
|00000220| 49 5a 45 20 4f 46 20 44 | 49 52 45 43 54 4f 52 59 |IZE OF D|IRECTORY|
|00000230| 20 4f 4e 20 22 53 44 24 | 3b 3a 85 22 a0 a0 a0 9d | ON "SD$|;:."....|
|00000240| 9d 9d 22 3b 44 53 24 00 | 61 12 29 00 44 53 b2 c5 |..";DS$.|a.).DS..|
|00000250| 28 44 53 24 29 3a 8b 44 | 53 b2 30 a7 44 53 b2 32 |(DS$):.D|S.0.DS.2|
|00000260| 30 00 6d 12 2a 00 86 44 | 24 28 44 53 29 00 91 12 |0.m.*..D|$(DS)...|
|00000270| 32 00 99 22 11 44 4f 20 | 59 4f 55 20 57 49 53 48 |2..".DO |YOU WISH|
|00000280| 20 54 4f 20 41 4c 50 48 | 41 42 45 54 49 5a 45 20 | TO ALPH|ABETIZE |
|00000290| 22 00 bb 12 33 00 85 22 | 54 48 45 20 4e 45 57 20 |"...3.."|THE NEW |
|000002a0| 44 49 52 45 43 54 4f 52 | 59 20 45 4e 54 52 49 45 |DIRECTOR|Y ENTRIE|
|000002b0| 53 20 20 4e 9d 9d 9d 22 | 3b 53 24 00 f0 12 3c 00 |S  N..."|;S$...<.|
|000002c0| 85 22 11 44 4f 20 59 4f | 55 20 57 49 53 48 20 54 |.".DO YO|U WISH T|
|000002d0| 4f 20 55 53 45 20 50 41 | 54 54 45 52 4e 20 4d 41 |O USE PA|TTERN MA|
|000002e0| 54 43 48 49 4e 47 20 20 | 4e 9d 9d 9d 22 3b 50 24 |TCHING  |N...";P$|
|000002f0| 00 08 13 3d 00 8b 50 24 | b3 b1 22 59 22 a7 50 24 |...=..P$|.."Y".P$|
|00000300| b2 22 2a 22 3a 89 37 30 | 00 34 13 41 00 85 22 11 |."*":.70|.4.A..".|
|00000310| 12 50 41 54 54 45 52 4e | 92 20 28 55 53 45 20 32 |.PATTERN|. (USE 2|
|00000320| 30 34 30 20 52 55 4c 45 | 53 29 a0 a0 a0 9d 9d 9d |040 RULE|S)......|
|00000330| 22 3b 50 24 00 47 13 42 | 00 8b 50 24 b2 22 a0 22 |";P$.G.B|..P$."."|
|00000340| a7 50 24 b2 22 2a 22 00 | 6a 13 46 00 99 22 11 20 |.P$."*".|j.F..". |
|00000350| 12 43 92 4f 50 59 20 41 | 4c 4c 20 46 49 4c 45 53 |.C.OPY A|LL FILES|
|00000360| 20 46 52 4f 4d 20 22 53 | 44 24 00 92 13 47 00 85 | FROM "S|D$...G..|
|00000370| 22 4f 52 20 12 51 92 55 | 45 52 59 20 4f 4e 20 45 |"OR .Q.U|ERY ON E|
|00000380| 41 43 48 20 43 4f 50 59 | a0 a0 43 9d 9d 9d 22 3b |ACH COPY|..C...";|
|00000390| 51 24 00 9b 13 5a 00 8d | 39 30 30 00 b0 13 64 00 |Q$...Z..|900...d.|
|000003a0| 81 4c b2 30 a4 31 30 30 | 30 3a 82 3a 8d 35 30 30 |.L.0.100|0:.:.500|
|000003b0| 00 b9 13 6e 00 8d 32 30 | 30 00 de 13 73 00 99 22 |...n..20|0...s.."|
|000003c0| 11 43 4f 50 59 20 46 49 | 4e 49 53 48 45 44 21 21 |.COPY FI|NISHED!!|
|000003d0| 11 22 3a 81 4c b2 30 a4 | 34 30 30 30 3a 82 00 0b |.":.L.0.|4000:...|
|000003e0| 14 78 00 4b b2 30 3a 44 | 53 b2 37 30 3a 50 24 b2 |.x.K.0:D|S.70:P$.|
|000003f0| 22 2a 22 3a 53 44 24 b2 | 44 44 24 3a 8d 35 30 30 |"*":SD$.|DD$:.500|
|00000400| 3a 99 22 91 91 91 91 91 | 22 3a 80 00 18 14 c8 00 |:.".....|":......|
|00000410| 81 49 b2 31 a4 4b ab 31 | 00 50 14 cd 00 99 3a 49 |.I.1.K.1|.P....:I|
|00000420| 4e 24 b2 22 59 22 3a 8b | 51 24 b2 22 51 22 a7 99 |N$."Y":.|Q$."Q"..|
|00000430| 22 91 43 4f 50 59 3a 20 | 12 22 44 24 28 49 29 22 |".COPY: |."D$(I)"|
|00000440| 92 22 3a 85 22 a0 20 59 | 9d 9d 9d 22 3b 49 4e 24 |.":.". Y|...";IN$|
|00000450| 00 68 14 d2 00 99 22 91 | 91 22 3a 8b 49 4e 24 b3 |.h....".|.":.IN$.|
|00000460| b1 22 59 22 a7 82 3a 8e | 00 95 14 dc 00 43 43 24 |."Y"..:.|.....CC$|
|00000470| b2 22 43 20 22 aa 44 44 | 24 aa 22 3a 22 aa 44 24 |."C ".DD|$.":".D$|
|00000480| 28 49 29 aa 22 3d 22 aa | 53 44 24 aa 22 3a 22 aa |(I)."=".|SD$.":".|
|00000490| 44 24 28 49 29 00 a6 14 | e6 00 98 31 35 2c 43 43 |D$(I)...|...15,CC|
|000004a0| 24 3a 8d 39 30 30 00 bd | 14 f0 00 8b 45 4e b1 32 |$:.900..|....EN.2|
|000004b0| 39 20 b0 20 45 4e b2 30 | a7 20 82 3a 8e 00 f4 14 |9 . EN.0|. .:....|
|000004c0| fa 00 98 31 35 2c 22 4d | 2d 57 22 c7 28 34 31 29 |...15,"M|-W".(41)|
|000004d0| c7 28 30 29 c7 28 31 29 | c7 28 44 44 aa 36 36 29 |.(0).(1)|.(DD.66)|
|000004e0| 3a 8f 20 50 41 54 43 48 | 20 46 4f 52 20 53 43 52 |:. PATCH| FOR SCR|
|000004f0| 41 54 43 48 00 20 15 04 | 01 43 43 24 b2 22 53 20 |ATCH. ..|.CC$."S |
|00000500| 22 aa 44 44 24 aa 22 3a | 22 aa 44 24 28 49 29 3a |".DD$.":|".D$(I):|
|00000510| 98 31 35 2c 43 43 24 3a | 8d 39 30 30 3a 82 3a 8e |.15,CC$:|.900:.:.|
|00000520| 00 35 15 f4 01 8f 20 52 | 45 41 44 20 44 49 52 45 |.5.... R|EAD DIRE|
|00000530| 43 54 4f 52 59 00 3d 15 | f9 01 4b b2 31 00 6e 15 |CTORY.=.|..K.1.n.|
|00000540| fe 01 98 31 35 2c 22 4d | 2d 45 22 c7 28 32 31 32 |...15,"M|-E".(212|
|00000550| 29 c7 28 32 33 37 29 3a | 8f 20 44 49 52 45 43 54 |).(237):|. DIRECT|
|00000560| 4f 52 59 20 4c 4f 41 44 | 20 50 41 54 43 48 00 9e |ORY LOAD| PATCH..|
|00000570| 15 08 02 99 20 22 93 11 | 20 20 20 20 12 44 49 52 |.... "..|    .DIR|
|00000580| 45 43 54 4f 52 59 20 46 | 52 4f 4d 20 44 52 49 56 |ECTORY F|ROM DRIV|
|00000590| 45 20 22 53 44 24 22 11 | 22 3a 42 b2 33 30 00 c2 |E "SD$".|":B.30..|
|000005a0| 15 26 02 43 43 24 b2 22 | 24 22 aa 53 44 24 aa 22 |.&.CC$."|$".SD$."|
|000005b0| 3a 22 aa 50 24 3a 9f 20 | 32 2c 44 4e 2c 30 2c 43 |:".P$:. |2,DN,0,C|
|000005c0| 43 24 00 ee 15 27 02 43 | 43 24 b2 22 4f 50 45 4e |C$...'.C|C$."OPEN|
|000005d0| 20 32 2c 22 aa 44 4e 24 | aa 22 2c 30 2c 22 aa c7 | 2,".DN$|.",0,"..|
|000005e0| 28 33 34 29 aa 43 43 24 | aa c7 28 33 34 29 00 f9 |(34).CC$|..(34)..|
|000005f0| 15 2b 02 8d 39 30 30 3a | 99 00 13 16 30 02 a1 23 |.+..900:|....0..#|
|00000600| 32 2c 41 24 20 3a a1 23 | 32 2c 41 24 20 3a 49 24 |2,A$ :.#|2,A$ :I$|
|00000610| b2 22 22 00 25 16 3a 02 | 8b 20 53 54 b3 b1 30 20 |."".%.:.|. ST..0 |
|00000620| 89 20 36 36 30 00 39 16 | 44 02 81 20 41 b2 31 a4 |. 660.9.|D.. A.1.|
|00000630| 42 20 3a a1 23 32 2c 41 | 24 00 4f 16 4e 02 8b 20 |B :.#2,A|$.O.N.. |
|00000640| 41 24 b2 22 22 20 a7 20 | 41 24 b2 c7 28 30 29 00 |A$."" . |A$..(0).|
|00000650| 6b 16 58 02 49 24 b2 49 | 24 aa 41 24 20 3a 82 20 |k.X.I$.I|$.A$ :. |
|00000660| 3a 49 24 b2 49 24 aa 22 | 20 20 22 00 7f 16 62 02 |:I$.I$."|  "...b.|
|00000670| 42 51 b2 c6 28 ca 28 49 | 24 2c 33 2c 31 29 29 00 |BQ..(.(I|$,3,1)).|
|00000680| 9a 16 6c 02 42 51 b2 42 | 51 aa c6 28 ca 28 49 24 |..l.BQ.B|Q..(.(I$|
|00000690| 2c 34 2c 31 29 29 ac 32 | 35 36 00 ae 16 76 02 99 |,4,1)).2|56...v..|
|000006a0| 20 42 51 3b ca 28 49 24 | 2c 35 2c 32 37 29 00 bc | BQ;.(I$|,5,27)..|
|000006b0| 16 77 02 8b 42 b2 33 30 | a7 36 35 30 00 e1 16 79 |.w..B.30|.650...y|
|000006c0| 02 81 49 b2 36 a4 32 37 | 3a 8b ca 28 49 24 2c 49 |..I.6.27|:..(I$,I|
|000006d0| 2c 31 29 b3 b1 c7 28 33 | 34 29 a7 82 3a 89 36 35 |,1)...(3|4)..:.65|
|000006e0| 30 00 13 17 7b 02 81 4a | b2 49 aa 31 a4 32 37 3a |0...{..J|.I.1.27:|
|000006f0| 8b ca 28 49 24 2c 4a 2c | 31 29 b3 b1 c7 28 33 34 |..(I$,J,|1)...(34|
|00000700| 29 a7 44 24 b2 44 24 aa | ca 28 49 24 2c 4a 2c 31 |).D$.D$.|.(I$,J,1|
|00000710| 29 3a 82 00 29 17 7f 02 | 8b 53 24 b2 22 59 22 a7 |):..)...|.S$."Y".|
|00000720| 8d 37 30 30 3a 89 36 35 | 30 00 3c 17 80 02 44 24 |.700:.65|0.<...D$|
|00000730| 28 4b 29 b2 44 24 3a 4b | b2 4b aa 31 00 5e 17 8a |(K).D$:K|.K.1.^..|
|00000740| 02 44 24 b2 22 22 3a 49 | 24 b2 22 22 3a 42 b2 33 |.D$."":I|$."":B.3|
|00000750| 32 3a 8b 41 24 b3 b1 22 | 53 22 89 35 37 30 00 7e |2:.A$.."|S".570.~|
|00000760| 17 94 02 99 3a 43 43 24 | b2 22 52 45 41 44 20 44 |....:CC$|."READ D|
|00000770| 49 52 45 43 54 4f 52 59 | 22 3a 8d 39 30 30 00 a2 |IRECTORY|":.900..|
|00000780| 17 9e 02 43 43 24 b2 22 | 43 4c 4f 53 45 20 32 22 |...CC$."|CLOSE 2"|
|00000790| 3a 20 a0 20 32 3a 8d 39 | 30 30 3a 99 22 11 11 22 |: . 2:.9|00:.".."|
|000007a0| 3a 8e 00 b7 17 bc 02 8f | 20 53 4f 52 54 20 44 49 |:.......| SORT DI|
|000007b0| 52 45 43 54 4f 52 59 00 | ce 17 c6 02 8b 20 4b b2 |RECTORY.|..... K.|
|000007c0| 31 20 a7 20 4a b2 30 3a | 20 89 20 37 34 30 00 e5 |1 . J.0:| . 740..|
|000007d0| 17 d0 02 8b 20 4b b2 30 | 20 a7 20 4a b2 ab 31 3a |.... K.0| . J..1:|
|000007e0| 89 20 37 34 30 00 17 18 | da 02 81 20 4a b2 4b ab |. 740...|... J.K.|
|000007f0| 31 20 a4 20 31 20 a9 ab | 31 3a 8b 20 44 24 b3 44 |1 . 1 ..|1:. D$.D|
|00000800| 24 28 4a 29 20 a7 20 44 | 24 28 4a aa 31 29 b2 44 |$(J) . D|$(J.1).D|
|00000810| 24 28 4a 29 3a 20 82 00 | 30 18 e4 02 44 24 28 4a |$(J): ..|0...D$(J|
|00000820| aa 31 29 b2 44 24 20 3a | 4b b2 4b aa 31 20 3a 8e |.1).D$ :|K.K.1 :.|
|00000830| 00 4f 18 84 03 8f 20 49 | 4e 50 55 54 20 46 52 4f |.O.... I|NPUT FRO|
|00000840| 4d 20 45 52 52 4f 52 20 | 43 48 41 4e 4e 45 4c 00 |M ERROR |CHANNEL.|
|00000850| 66 18 8e 03 84 31 35 2c | 45 4e 2c 45 4d 24 2c 45 |f....15,|EN,EM$,E|
|00000860| 54 24 2c 45 53 24 00 88 | 18 98 03 8b 45 4e b2 30 |T$,ES$..|....EN.0|
|00000870| a7 99 22 12 22 43 43 24 | 22 92 20 c3 3e 20 22 a3 |.."."CC$|". .> ".|
|00000880| 31 35 29 45 4d 24 3a 8e | 00 b3 18 a2 03 8b 45 4e |15)EM$:.|......EN|
|00000890| b2 31 a7 99 22 12 22 43 | 43 24 22 92 20 c3 3e 20 |.1.."."C|C$". .> |
|000008a0| 22 a3 31 35 29 22 12 22 | 45 54 24 22 92 22 45 4d |".15)"."|ET$"."EM|
|000008b0| 24 3a 8e 00 d9 18 ac 03 | 99 22 11 12 22 43 43 24 |$:......|.".."CC$|
|000008c0| 3a 99 22 92 20 c3 3e 20 | 45 52 52 4f 52 20 23 22 |:.". .> |ERROR #"|
|000008d0| 45 4e 22 12 22 45 4d 24 | 3b 00 f6 18 b6 03 8b 45 |EN"."EM$|;......E|
|000008e0| 4e b3 33 30 a7 99 22 20 | 4f 4e 20 22 45 54 24 22 |N.30.." |ON "ET$"|
|000008f0| 2e 22 45 53 24 3b 00 ff | 18 c0 03 99 22 11 22 00 |."ES$;..|....".".|
|00000900| 25 19 ca 03 85 22 43 4f | 4e 54 49 4e 55 45 a0 a0 |%...."CO|NTINUE..|
|00000910| 4e 9d 9d 9d 22 3b 49 4e | 24 3a 8b 49 4e 24 b2 22 |N...";IN|$:.IN$."|
|00000920| 59 22 a7 20 8e 00 2b 19 | d4 03 80 00 00 00       |Y". ..+.|......  |
+--------+-------------------------+-------------------------+--------+--------+